Public Class Lista
   Implements ICloneable

   Private m_seleccionar As Boolean
   Private m_codigo As String
   Private m_Descripcion As String

   Public Sub New()

   End Sub

   Sub New(ByVal x_codigo As String, ByVal x_descripcion As String)
      Codigo = x_codigo
      Descripcion = x_descripcion
   End Sub

   Public Property Seleccionar() As Boolean
      Get
         Return m_seleccionar
      End Get
      Set(ByVal value As Boolean)
         m_seleccionar = value
      End Set
   End Property

   Public Property Codigo() As String
      Get
         Return m_codigo
      End Get
      Set(ByVal value As String)
         m_codigo = value
      End Set
   End Property
   Public Property Descripcion() As String
      Get
         Return m_Descripcion
      End Get
      Set(ByVal value As String)
         m_Descripcion = value
      End Set
   End Property


   Public Function Clone() As Object Implements System.ICloneable.Clone
      Try
         Dim cloneInstance As Lista
         cloneInstance = DirectCast(Me, Lista)
         Return cloneInstance.MemberwiseClone()
      Catch ex As Exception
         Throw ex
      End Try
   End Function

End Class